home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 November
/
64er_Magazin_90-11_1990_Markt__Technik_de_Side_B.d64
/
joystick test
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
347b
|
14 lines
10 print"[147]"
15 input"port 1 oder 2";a
20 def fn joy(x)=int((log(255.5-(peek(56322-x)or224)))/log(2)+2)
30 print"[147]"
40 print""
50 q=fn joy(a)
60 ifq=1then print"nullstellung "
70 ifq=2then print"oben "
80 ifq=3then print"unten "
90 ifq=4then print"links "
100 ifq=5then print"rechts "
110 ifq=6then print"feuer"
120 goto 40